﻿Public Class NotaCreditoIngresoDetalle

    Dim _ciacli, _succli, _tdoccli, _dcicodcli, _dcdcod, _codcliente As String
    Dim _ciaalm, _sucalm, _tdocalm, _dcacodalm, _dadcod, _codalmacen, _dcadactivo As String

    Sub New()

    End Sub

    Sub New(ByVal tdoccli As String, ByVal dcicodcli As String, ByVal dcdcod As String, ByVal codcli As String, _
            ByVal tdocalm As String, ByVal dcacodalm As String, ByVal dadcod As String, ByVal codalm As String)
        Me._tdoccli = tdoccli
        Me._dcicodcli = dcicodcli
        Me._dcdcod = dcdcod
        Me._codcliente = codcli
        Me._tdocalm = tdocalm
        Me._dcacodalm = dcacodalm
        Me._dadcod = dadcod
        Me._codalmacen = codalm
    End Sub

    Public Property TDOC_Cli() As String
        Get
            Return _tdoccli
        End Get
        Set(ByVal value As String)
            _tdoccli = value
        End Set
    End Property

    Public Property DCI_Codigo_Cli() As String
        Get
            Return _dcicodcli
        End Get
        Set(ByVal value As String)
            _dcicodcli = value
        End Set
    End Property

    Public Property DCD_Codigo() As String
        Get
            Return _dcdcod
        End Get
        Set(ByVal value As String)
            _dcdcod = value
        End Set
    End Property

    Public Property Codigo_Cli() As String
        Get
            Return _codcliente
        End Get
        Set(ByVal value As String)
            _codcliente = value
        End Set
    End Property

    Public Property TDOC_Alm() As String
        Get
            Return _tdocalm
        End Get
        Set(ByVal value As String)
            _tdocalm = value
        End Set
    End Property

    Public Property DCA_Codigo_Alm() As String
        Get
            Return _dcacodalm
        End Get
        Set(ByVal value As String)
            _dcacodalm = value
        End Set
    End Property

    Public Property DAD_Codigo() As String
        Get
            Return _dadcod
        End Get
        Set(ByVal value As String)
            _dadcod = value
        End Set
    End Property

    Public Property Codigo_Alm() As String
        Get
            Return _codalmacen
        End Get
        Set(ByVal value As String)
            _codalmacen = value
        End Set
    End Property

End Class
